shared source/sscli20/samples/pigui/tk/delegatewrappers.cs

   1 //------------------------------------------------------------------------------
   2 // <copyright file="DelegateWrappers.cs" company="Microsoft">
   3 //
   4 //      Copyright (c) 2006 Microsoft Corporation.  All rights reserved.
   5 //
   6 //      The use and distribution terms for this software are contained in the file
   7 //      named license.txt, which can be found in the root of this distribution.
   8 //      By using this software in any fashion, you are agreeing to be bound by the
   9 //      terms of this license.
  10 //
  11 //      You must not remove this notice, or any other, from this software.
  12 //
  13 // </copyright>
  14 //------------------------------------------------------------------------------
  15
  16 using System;
  17 using System.Runtime.InteropServices;
  18
  19 namespace SharedSourceCLI.TK
  20 {
  21     internal class TclAppInitProcWrapper {
  22
  23         TclInterp _interp;
  24         TclAppInitProc _proc;
  25         Tcl_AppInitProc _callback;
  26
  27         internal TclAppInitProcWrapper(TclInterp interp, TclAppInitProc proc) {
  28             _interp = interp;
  29             _proc = proc;
  30             unsafe { _callback = new Tcl_AppInitProc(this.CallbackProc); }
  31         }
  32
  33         internal Tcl_AppInitProc Callback {
  34             get { return _callback; }
  35         }
  36
  37         private unsafe int CallbackProc(Tcl_Interp* interp)
  38         {
  39             try {
  40                 _proc(_interp);
  41             }
  42             catch (Exception) {
  43                 return TclNative.TCL_ERROR;
  44             }
  45
  46             return TclNative.TCL_OK;
  47         }
  48     }
  49
  50     internal class TclCmdProcWrapper {
  51
  52         TclInterp _interp;
  53         TclCmdProc  _proc;
  54         Tcl_CmdProc _callback;
  55
  56         internal TclCmdProcWrapper(TclInterp interp, TclCmdProc proc) {
  57             _interp = interp;
  58             _proc = proc;
  59             unsafe { _callback = new Tcl_CmdProc(this.CallbackProc); }
  60         }
  61
  62         internal Tcl_CmdProc Callback {
  63             get { return _callback; }
  64         }
  65
  66         private unsafe int CallbackProc(IntPtr clientData,
  67             Tcl_Interp* interp, int argc, char** argv)
  68         {
  69             try {
  70                 string[] arr = new string[argc];
  71                 for(int i=0; i<argc; i++)
  72                 {
  73                     arr[i] = Marshal.PtrToStringAnsi((IntPtr)argv[i]);
  74                 }
  75
  76                 _proc(_interp, arr);
  77             }
  78             catch (Exception) {
  79                 return TclNative.TCL_ERROR;
  80             }
  81
  82             return TclNative.TCL_OK;
  83         }
  84     }
  85
  86     internal class TclCmdDeleteProcWrapper {
  87
  88         TclInterp _interp;
  89         TclCmdDeleteProc _proc;
  90         Tcl_CmdDeleteProc _callback;
  91         Object _deletee;
  92
  93         internal TclCmdDeleteProcWrapper(TclInterp interp, TclCmdDeleteProc proc, Object deletee) {
  94             _interp = interp;
  95             _proc = proc;
  96             unsafe { _callback = new Tcl_CmdDeleteProc(this.CallbackProc); }
  97             _deletee = deletee;
  98
  99             _interp.AddKeepAlive(this);
 100             _interp.AddKeepAlive(_deletee);
 101         }
 102
 103         internal Tcl_CmdDeleteProc Callback {
 104             get { return _callback; }
 105         }
 106
 107         private unsafe int CallbackProc(IntPtr clientData)
 108         {
 109             try {
 110                 _interp.RemoveKeepAlive(_deletee);
 111                 _interp.RemoveKeepAlive(this);
 112
 113                 if (_proc != null)
 114                     _proc();
 115             }
 116             catch (Exception) {
 117                 return TclNative.TCL_ERROR;
 118             }
 119
 120             return TclNative.TCL_OK;
 121         }
 122     }
 123 }